home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / debug / memmon.dir / 00065_Vol1 button.ls < prev    next >
Encoding:
Text File  |  1995-02-15  |  443 b   |  15 lines
  1. on mouseDown
  2.   repeat while the mouseDown
  3.     if (the mouseV > 68) and (the mouseV < 135) then
  4.       set the locV of sprite the clickOn to the mouseV - 3
  5.       set the height of sprite 36 to the mouseV - 70
  6.       set the volume of sound 1 to 256 - (the height of sprite 36 * 1.0 / 64 * 256) - 1
  7.       updateStage()
  8.     end if
  9.   end repeat
  10. end
  11.  
  12. on mouseUp
  13.   set the volume of sound 1 to 256 - (the height of sprite 36 * 1.0 / 64 * 256) - 1
  14. end
  15.